home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib08.dsk / MLE DRIVER.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  29 lines
  1. 1  REM  **********************
  2. 2  REM  * M.L.E. DRIVER      *
  3. 3  REM  * BY DOUG SPRINKLE   *
  4. 4  REM  * COPYRIGHT (C) 1982 *
  5. 5  REM  * BY MICRO-SPARC INC *
  6. 6  REM  * LINCOLN, MA. 01773 *
  7. 7  REM  **********************
  8. 10  HIMEM: 16368
  9. 14  FOR I = 1 TO 9: READ A: POKE 18943 +I,A: NEXT 
  10. 15  DATA  173,245,63,172,244,63,76,72,163
  11. 20  ONERR  GOTO 200
  12. 24 D$ =  CHR$(4): PRINT D$;"MON C,I,O": PRINT D$;"BLOAD MLE.B"
  13. 34  CALL 16384: REM  MLE
  14. 35  PRINT : HOME : PRINT D$;"CATALOG": PRINT : PRINT 
  15. 50 N =  PEEK(16369): HTAB 10: PRINT "'EXIT' TO RETURN": PRINT : HTAB 11: INPUT "ENTER FILE NAME  ";F$: IF F$ = ""  THEN F$ = "NO NAME"
  16. 55  IF F$ = "EXIT"  THEN 34
  17. 60  ON N GOTO 70,150
  18. 70  REM  SAVE RTN
  19. 80 L% =  PEEK(16370) +256 * PEEK(16371)
  20. 85  POKE 41794,76: POKE 41795,0: POKE 41796,74: REM  MAKE PATCH
  21. 90  PRINT D$;"BSAVE";F$;",A20480,L"L%
  22. 125  POKE 41794,173: POKE 41795,115: POKE 41796,170: REM  CLEAR PATCH
  23. 130  GOTO 34
  24. 140  REM  LOAD RTN
  25. 150  PRINT D$;"BLOAD";F$;",A$5000"
  26. 160 JP% =  PEEK(16374) +256 * PEEK(16375)
  27. 170  CALL JP%: GOTO 34
  28. 200 EC% =  PEEK(222): HOME : VTAB 11: HTAB 12
  29. 210  PRINT "DISK ERROR CODE ";EC%: PRINT : HTAB 14: INPUT "PRESS RETURN ";A$: GOTO 34